home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / XFMRNARO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-29  |  3.4 KB  |  137 lines
  1. 10  'XFMRNARO - Transformer, Narrow Band - 18 FEB 96 rev. 28 SEP 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  PI=3.14159
  6. 60  U$="#####.###"
  7. 70  X$=STRING$(80,32)
  8. 80  GOTO 150
  9. 90  '
  10. 100  '.....format display
  11. 110  LOCATE CSRLIN-1:PRINT SPC(7);
  12. 120  LOCATE CSRLIN,47:PRINT STRING$(7,".");USING U$;ZZ;
  13. 130  RETURN
  14. 140  '
  15. 150  '.....start
  16. 160  CLS
  17. 170  COLOR 15,2
  18. 180  PRINT " TRANSFORMER, Narrowband";
  19. 190  PRINT TAB(57);"by George Murphy VE3ERP ";
  20. 200  COLOR 1,0:PRINT STRING$(80,223);:COLOR 7,0
  21. 210  GOSUB 870      'diagram
  22. 220  PRINT
  23. 230  GOSUB 1000      'text
  24. 240  '
  25. 250  LOCATE 25,22:COLOR 0,7
  26. 260  PRINT " Press 1 to continue or 0 to EXIT.....";
  27. 270  COLOR 7,0
  28. 280  Z$=INKEY$:IF Z$=""THEN 280
  29. 290  IF Z$="0"THEN CLS:RUN EX$
  30. 300  IF Z$="1"THEN GOSUB 330:GOTO 360
  31. 310  GOTO 280
  32. 320  '
  33. 330  VIEW PRINT 11 TO 24:CLS:VIEW PRINT:LOCATE 11
  34. 340  RETURN
  35. 350  '
  36. 360  '.....input data
  37. 370  '
  38. 380  INPUT " ENTER: LO-Z impedance............................(ohms)";LO
  39. 390  ZZ=LO:GOSUB 100:PRINT " ohms"
  40. 400  '
  41. 410  INPUT " ENTER: HI-Z impedance............................(ohms)";HI
  42. 420  ZZ=HI:GOSUB 100:PRINT " ohms"
  43. 430  '
  44. 440  INPUT " ENTER: Top edge of desired bandwidth..............(MHz)";F2
  45. 450  ZZ=F2:GOSUB 100:PRINT " Mhz"
  46. 460  '
  47. 470  INPUT " ENTER: Bottom edge of desired bandwidth...........(MHz)";F1
  48. 480  ZZ=F1:GOSUB 100:PRINT " Mhz"
  49. 490  '
  50. 500  CF=SQR(F1*F2)
  51. 510  PRINT "        Centre Frequency of desired bandwidth........";USING U$;CF;
  52. 520  PRINT " MHz"
  53. 530  '
  54. 540  BW=F2-F1
  55. 550  PRINT "        Bandwidth....................................";USING U$;BW;
  56. 560  PRINT " MHz"
  57. 570  '
  58. 580  QL=CF/(F2-F1)
  59. 590  QX=SQR(HI/LO-1)
  60. 600  IF QL>QX THEN 670
  61. 610  COLOR 0,7
  62. 620  PRINT "        Bandwidth is too wide...press any key to specify another..."
  63. 630  COLOR 7,0
  64. 640  IF INKEY$=""THEN 640
  65. 650  GOSUB 330:GOTO 360
  66. 660  '
  67. 670  CT=QL/(2*PI*CF*(HI/2))*10^6
  68. 680  CC=SQR(HI/LO)-1
  69. 690  X=1
  70. 700  C1=X:C2=X*CC
  71. 710  Y=C1*C2/(C1+C2)
  72. 720  C1=CT/Y
  73. 730  C2=C1*CC
  74. 740  XL=1/(2*PI*CF*(CT*10^-6))
  75. 750  L1=XL/(2*PI*CF)
  76. 760  '
  77. 770  PRINT "        Capacitor C1.................................";USING U$;C1;
  78. 780  PRINT " pF"
  79. 790  PRINT "        Capacitor C2.................................";USING U$;C2;
  80. 800  PRINT " pF"
  81. 810  PRINT "        Inductive Reactance, Inductor L1.............";USING U$;XL;
  82. 820  PRINT " ohms"
  83. 830  PRINT "        Inductor L1..................................";USING U$;L1;
  84. 840  PRINT " >H"
  85. 850  GOTO 1210   'end
  86. 860  END
  87. 870  '.....diagram
  88. 880  COLOR 0,7
  89. 890  T=25
  90. 900  LOCATE ,T:PRINT "                                "
  91. 910  LOCATE ,T:PRINT "         VARPTRSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDBSAVESOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDCOLOR    "
  92. 920  LOCATE ,T:PRINT "        THENINSTRTHEN C1  CALL  L1      CALL    "
  93. 930  LOCATE ,T:PRINT "   VARPTRSOUNDSOUNDSOUNDSOUNDSOUND<0xB4!>      CLSSOUNDORORORORSOUNDCOLOR  HI-Z  "
  94. 940  LOCATE ,T:PRINT "  LO-Z  THENINSTRTHEN C2         CALL   CALL    "
  95. 950  LOCATE ,T:PRINT "   CLSSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDMOTORSOUNDSOUNDSOUND'    "
  96. 960  LOCATE ,T:PRINT "                                "
  97. 970  COLOR 7,0
  98. 980  RETURN
  99. 990  '
  100. 1000  '.....preface
  101. 1010  T=7
  102. 1020  PRINT TAB(7);
  103. 1030  PRINT "A narrow-band transformer can be built with a single winding by"
  104. 1040  PRINT TAB(7);
  105. 1050  PRINT "using a capacitive divider to match a low-impedance source to a"
  106. 1060  PRINT TAB(7);
  107. 1070  PRINT "high-impedance load, or vice versa. This kind of circuit is used"
  108. 1080  PRINT TAB(7);
  109. 1090  PRINT "frequently for matching one transistor stage to another. It has a"
  110. 1100  PRINT TAB(7);
  111. 1110  PRINT "band pass characteristic and is, therefore, useful in minimizing"
  112. 1120  PRINT TAB(7);
  113. 1130  PRINT "harmonic energy."
  114. 1140  PRINT
  115. 1150  PRINT TAB(7);
  116. 1160  PRINT "To attain precise resonance a small trimmer capacitor may be placed"
  117. 1170  PRINT TAB(7);
  118. 1180  PRINT "in parallel with C1, or L1 may be a variable (slug tuned) inductor."
  119. 1190  RETURN
  120. 1200  '
  121. 1210  '.....end
  122. 1220  GOSUB 1240:GOTO 150
  123. 1230  '
  124. 1240  'HARDCOPY
  125. 1250  GOSUB 1360:LOCATE 25,2:COLOR 14,6
  126. 1260  PRINT " Press 1 to print screen, 2 to print screen & ";
  127. 1270  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  128. 1280  Z$=INKEY$:IF Z$="3"THEN GOSUB 1360:RETURN
  129. 1290  IF Z$="1"OR Z$="2"THEN GOSUB 1360:GOTO 1310
  130. 1300  GOTO 1280
  131. 1310  FOR QX=1 TO 24:FOR QY=1 TO 80
  132. 1320  LPRINT CHR$(SCREEN(QX,QY));
  133. 1330  NEXT QY:NEXT QX
  134. 1340  IF Z$="2"THEN LPRINT CHR$(12)
  135. 1350  GOTO 1250
  136. 1360  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  137.